home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / disk / cdrom / SkandalfoCDP.lha / SCDPlayer / Rexx / DelayedAutoPlay.scdp < prev    next >
Text File  |  1996-08-15  |  440b  |  31 lines
  1. /* Skandalfo CD Player ARexx script 
  2. ** Delay autoplay for kludging around
  3. ** some CDFileSystems which stop the CD
  4. ** on insertion and which detect the
  5. ** insertion in a slower way than SCDP.
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. AUTOPLAY
  11. AP=RESULT
  12.  
  13. IF AP=0 THEN RETURN
  14.  
  15. AUTOPLAY 0
  16.  
  17. /* Hoping this program will have reached here
  18. ** in half a second (Big Kludge)
  19. */
  20. USERACTION
  21.  
  22. ADDRESS COMMAND "Wait 10"
  23.  
  24. USERACTION
  25. UA=RESULT
  26.  
  27. AUTOPLAY 1
  28.  
  29. IF ~UA THEN PLAY
  30.  
  31.